home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesmenu2.s < prev    next >
Text File  |  1989-04-06  |  965b  |  32 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.  
  10. ;*************************************************************************
  11. ;*
  12. ;* Menu Manager routines 2 of 2.
  13. ;*  (This call is isolated because an accessory would use this, but none
  14. ;*   of the other menu calls).
  15. ;*
  16. ;*************************************************************************
  17.  
  18. ;-------------------------------------------------------------------------
  19. ; menu_register
  20. ;-------------------------------------------------------------------------
  21.  
  22. _menu_register::
  23.  
  24.           .cargs    #4,.apid,.ptext.l
  25.           AControl  35,1,1,1
  26.           lea       .apid(sp),a1        ; -> intin
  27.           lea       .ptext(sp),a0       ; -> addrin
  28.           ACall     RET2USER
  29.  
  30. ;         end of code
  31.  
  32.